home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Dylan Related / Mindy / Mindy 1.2 - Mac PPC / lib / format-lib.dbc < prev    next >
Encoding:
Text File  |  1995-03-15  |  6.3 KB  |  61 lines  |  [TEXT/ttxt]
  1. # compilation (2.1) of library.dylan
  2. # produced with the 1.2 version of mindycomp
  3. nxöæ<Format>
  4. library.dylanEdylanstreamsprintF
  5. extensions    <boolean>type-orfalse-or<fixed-integer>report-condition<stream>write lock-stream
  6. unlock-stream<byte-string-output-stream>string-output-stream-string<byte-character><byte>
  7. print-messageformat-to-stringˇ# compilation (2.1) of format.dylan
  8. # produced with the 1.2 version of mindycomp
  9. nxöæ<Format> format.dylan=Bformat-to-string7Define Generic format-to-string*+)+(
  10. 6)2<string>4<type>4%define-generic24list†°`≤#¥†ë¥Pëá%C7Define Method format-to-string++++,++6+2
  11. <byte-string>44%define-method297,+-**args    *control-string
  12. +.)*s+/ +/6-2make6-2<byte-string-output-stream>6.2apply6.26/2string-output-stream-string∞°ë`≤£P32ÑP¥04†°`†°a≤#Q$µPëµQëÇ&B
  13. print-message7Define Generic print-message*++9
  14. 424692<object>692<stream>∞!≤£§í≤êá%C7
  15. Define Method print-message++=+>+=
  16. 6=2type-or6=26=2 <character>46>24297)+@**stream*object    6@2write4values∞21DZp4∞°¢í£`§£aµ&'∏PQí∏êÇ)C7Define Method print-message)+C6C2 <condition>46C24297)+E***    6E2report-condition4∞21DZp4†°`¢°a≥$%∂PQí∂êÇ'C7Define Method print-message)+H6H2<symbol>46H24297
  17. )+J
  18. ***    6J26J2as6J24∞±¢2í1Ç≥p4†°`¢°a≥$%∂PQí∂êÇ'@$dispatch-char7
  19. Define Constant $dispatch-char)+Q
  20.  %4
  21. init-variable2! `±"PÉ@ char-classes7Define Constant char-classes)+T6T2
  22. 6T2<vector>sizefill4"2#∞°" #ï`¥%PÉ?7+Top Level Form++V+V
  23. )*i+W'6V2 6V2<byte> 0 9digit4element-setter6W2#∞°"í`∞°#í
  24. aPbQPÛ $cµS¶RÉP
  25. `
  26. ‚ˇˇˇ?7
  27. Top Level Form)+Y
  28. *4+6Y2#6Y2 6Y2) - `±P¢≥§%íÉPB7Define Generic Format*++\
  29. 4246\26\2∞!≤£§í≤êá%C7Define Method Format)+`6`246`24297*+c
  30. +*    *
  31.     *
  32. +d)* control-len,6c2<fixed-integer>46c2%6d4catch97 *+d,*    
  33. *
  34.     *.*+d)*exit1973)+d44throw∞°02s44uwp97[ 1+e    -*    *3*
  35.     *.*+f    )*start6+h)*arg-i 7+i9+k9+l )*(9+k ;+n    ;+o;+p;+q;+r;+r9+w9+x9+z**field-spec-end*field9+|<+})* <+~?+ ?+    Å?+    Ç )*output?+    É
  36. )*
  37. output-len$@+    Ö    )*padding,B+    Ü
  38. D+    á    D+    àD+    â
  39. D+    ãD+    åD+    éD+    è<+    ê<+    ë<+    í <+    î <+    î96e2/46h2 lock-stream4element6l2!6n28end6w2#6w2 6w2)*6x2
  40. parse-integer6|2
  41. 6|26}2 do-dispatch6~2Gdefault6Å26Ç2%6É2abs6à2%&  %&  K†°`
  42. Pa†°b
  43. Rc≤0ÅQ1Ú ;QdTeU1ÙfV V
  44. ≥2Uí§Ù 
  45. U
  46. fVd
  47. “ˇˇˇµ20&Q'UÜU1Ù     3Ä
  48. U
  49. Pa≥®π™≥2Qííí+Ù
  50. º2QÇ
  51.     edT óΩÆëfø≥2UíVø4S/îì S
  52. Rc
  53. Vøg†°hWøXi†°jøTëYÒZk[
  54. Ú
  55. µW0Ç
  56. 6T
  57. ¯ µΩØ/[//ï0ǵW0Ç
  58. µW0ǵΩØ/[//ï0ÇU
  59. Pa
  60. (ø≥2Qí0ø4S/îì S
  61. Rc
  62. Q
  63. Pa
  64. Ω˛ˇˇ97)+    ò)*6ò2
  65. unlock-stream∞0q`5 ±êP≤3P210#±ê0$±êr444†°`2≤Pa≥12Q3$µ¶ëÅ∑p4†°`¢°a≥$%∂PQí∂êÇ'CJ7
  66. Define Method do-dispatch++    ¢+    £+    ¢6¢2<byte-character>46¢26£2    <boolean>42J97|J1#+    §+*arg    *
  67. *char+    •Q+    ¶Q+    ß    Q+    • Q+    ß    Q+    • Q+    ß    Q+    • Q+    ß    Q+    ® Q+    ™    Q+    ´    Q+    ¨Q+    ≠    Q+    ´    Q+    ¨Q+    ≠    Q+    Æ    Q+    ØQ+    ∞    Q+    Æ    Q+    ØQ+    ∞    Q+    ±    Q+    ≤Q+    ≥    Q+    ±    Q+    ≤Q+    ≥    Q+    ¥
  68. Q+    µQ+    ∂    Q+    ¥
  69. Q+    µQ+    ∂    Q+    ∑Q+    π    Q+    ∑Q+    π    Q+    ∫
  70. Q+    ªQ+    ºQ+    æQ6§2= s6¶2 S c C =2print d2format-integer D b B o O x X m22 M %2 %2error%Unknown format dispatch character, %c4`†aQP!í ≤23Ç
  71. `QP#í ≤23Ç
  72. KQP$í ≤23Ç
  73. 6QP%í ≤23Ç
  74. !QP&í ∑23Ç
  75. QP(í
  76. π2
  77.  
  78. 3É
  79. ıQP*í
  80. π2
  81.  
  82. 3É
  83. fiQP+í
  84. π2
  85. 3É
  86. «QP,í
  87. π2
  88. 3É
  89. ∞QP-í
  90. π2
  91. 3É
  92. ôQP.í
  93. π2
  94. 3É
  95. ÇQP/í
  96. π2
  97. 3É
  98. jQP/í
  99. π2
  100. 3É
  101. RQP/í ø2ø3ëÇ
  102. 8QP/í ø2ø3ëÇ
  103. QP/í
  104. ø/3Ç
  105. ø/4í044J†°`¢°a£°b¥%R&∑PQ®ì∑RëÇ)CI7
  106. &Define Method parse-integer++     +    À +     6 246 2/6À2false-or6À2    <integer>42I97ºI1 +    Ã    **index*input+    Ã)*resultZ+    Õ
  107. ]+    Œ]+    –)*    negative?]+    —_+    “    _+    “)*($_+    “)*len(a+    ”)*
  108. ascii-zero,b+    ‘!d+    ’d+    –d+    —d+    “    d+    ◊    d+    ÿd+    Ÿd+    ⁄d+    ⁄
  109. Z6Ã2Y44G -6–2/6—2%6“2)6“2  06‘2#*6’2*4negative4†°`
  110. Pa≤54í#Ù
  111. 4
  112. 0D
  113. b§c4d§e5µf¶g∑¶(íhTiVjXkYZÙl\ \
  114. ≤©∑¶≤5Yííí*ı 
  115.  
  116. &ªQ
  117.  
  118. í∑¶≤5Yíí[ÒPaY
  119. l\dZm]f[n^h
  120. ¢ˇˇˇQ
  121. Ù 4
  122. R ºQë
  123. QYa`ΩP1Q2r4I†°`¢°a≥§ë°b¢°cµ&SRQ'∏PQí∏RSíÇ)@$digits7
  124. Define Constant $digits)+    ‡
  125. $0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ4"2h `±"PÉCV7 $Define Method format-integer,+    ‰+    Â +    Ê+    ‰6‰2Y46Â2limitedminmax6Ê242V972V/+    ‰+**radix    *R
  126. +    È
  127. )*repeatl+    Ùn+    ın+    ˆn+    ˜n+    ¯n97    No .+    Í-*o **m*digits*R+    Î **    remainder*quotientp+    Ï)*qr+    Ìu+    Ó)**(u+    Òu6Í2floor/6Î2pair4G6Î2h6Î2 6Î2/6Ï2zero?4forward-iteration-protocol6Ó2∞50Ça`±≤£¥•Qíí4íb∂Pë /Rc∑SÅ ihgfedWSTUì YSTíj∏Z1ÇVSTíd
  128. ›ˇˇˇ2PRr446Ù2`6ı2 -4g4`P12 ±¢¢íP≥3ë ¥%1ÇP∂3ëÇ
  129. P3Ç∑p4V†°`≤†#
  130. $
  131. $ï°a•°b∂'(πPQRìπêÇ*ˇ